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جسم الله الرحمن الرحيه 


الكاتب : مصطفي حسين السرجاني 
DeAd HaCkEÊIrZ ]‏ ; 
هاتف ۰ ۲ ۰0۰٩۹٦09٦11۸0۷۹۹‏ 


E-MAIL : d7s@hotmail.com 


MICROSOFT VISUAL BASIC 


2008 


| التكرار؛ 
- التكرار المحدد 
- التكرار الغيرمحدد 


۲ - ادوات جديدة للتحكم في البرنامج 
- صناديق البيائات 
- اداوت الخيارات 
- صناديق الحوار 


۳ - طرق اتصال قواعد البيانات 

- الاإتصال بقاعدة البيانات 

- عرض البيانات داخل البرنامج 

- أضافة والتعديل على البيانات داخل البرنامج 


التكرار : 
التكرار المحدد : )×ع ۴٥۲۰...‏ 


يمكن أستخدام هذة التعليمة في تكرار تعليمة برمجية أو عدة تعاليم بعدد من المرات المحددة 
وسوف اعرض لكم الصورة العامة للتعليمة ... 


For x = start to end 
Statements 
Next 


حیث ان : 

× = متغير الذي تتغير قيمتة بعد كل تكرار 

) هو الرقم الذي سيبداً من عندة التكرار ( سواء كان ١وو" .... الخ‎ = t٣ 
4ء = هو الرقم الذي سنتهي عندة التكرار‎ 

4رءصteهtء‏ = هي التعليمة المراد تكرارها 


1 


)×عر = هي التي تعيد تكرار التعليمة مادام لم تصل لأخر رقم الذي تم وضعة في النهاية 


-: مثال‎ 
For I=1to 5 
Msgbox (“please enter the password’”) 
Next 


اي انة سوف يتم تكرار هذة الرسالة خمس مرات متتالية ويمكن أستخدام هذة التعليمة في عمل 
فايرس حيث يمكن وضع النهاية ٠١‏ أي انة سوف تكرر الرسالة ۰ وبهذا يحدث أيقاف 
للنظام 


Priwrwate Sub Forml LoadlByYal sender As System. VbhjeECTL, 
: تا‎ =m ke cee Lea 
HsqEox[{[ "please epter the passuord"™"] 
Next 


تأيnة inputBox‏ 
كنت أريد أن اعرضها في جزء مستقل ولكن هذا أفضل أن ادمجها مع التكرار لاريكم مثال عليها مع 
دالة التكرار . 


تستخدم هذة التعليمة في اظهار صندوق يدخل فية قيمة معينة ويمكن الاستفادة منها في عمل 
برنامج للتحقق من كلمة المرور للدخول ألي البرنامج .. 
الصورة العامة للتعليمة :- 
X = Inputbox (“prompt”)‏ 

حيث ان : 
× = هو المتغير الذي يخزن ما يتم أدخالة في الصندوق 
)مصroام‏ = هو العنوان الذي يظهر فوق مربع الادخال 
صور هة الصندوق : 

YindowsApplication1 E ۰ 1 × 


Pron pt _ancel 


للل 


سوف أقوم الان بعرض تعليمة ×0 ط٤ںمم1‏ مع تعليمة التكرار .. 
يعني انه سوف يتم تكرار الصندوق خمس مرات وعند ادخال الركم الصحيح سوف يعرض البرنامج 
او الفورم الذي يلية: 


Dim psw as Integer 
ForI =1to 5 


Psw = inputbox (“plase inter the password”) 
If psw = 1001 then exit sub 

Next 

End 


قم بتشغيل البرنامج وانظر ماذا سيحدث سوف يتكرر الصندوق ه٠‏ مرات مالم يتم ادخال القيمة 
١‏ في الصندوق 
شرح الكود : 


dim psw as integer 
1nte ger چ‎ gi من‎ sw اعلنا ى البرنامج على انة هناك متغير اسمة‎ 


ملاحظة : تم عرض في الكتاب السابق انواع المتغيرات وطريقة الاعلان عن المتغير 


For I = 1 to 5‏ 
Psw = Inputbox (“plase 1nter the password’)‏ 
سوف یظهر صندوق یتکرر خمس مرات 
If psw = 1001 then exit sub‏ 
قد تم شرحها في الكتاب السابقد مع ط)... 1f‏ 
هي تعليمة اذا تحقق الشرط يتم تتفيذ التعليمة التي تليها أي انة لو كان المتغير ٠٠١١‏ سوف 
يظهر الفورم الرئسي اما اذ لم يتحقق سوف سخرج من البرنامج باكملة 
التكرار الغير محدد : Do until ... loop‏ 
ار ا 


Do until expression 
Statements 
Loop 


10ء = وهي تعبير يعني صح ام خطا 
ئtatemen6ء‏ = التعليمة المراد تكرارها 


صورة اخري للتعليمة : 


Do 
Statements 
Loop until expression 


سوف يطرق سؤال على ذهن القارئ ما الفرض بين هاتين التعليميتن وسوف اجيب على السؤال : 


الصورة الاولي هو ان الشرط يتحقق قبل اول تكرار 
اللصورة الثانية الشرط يتحقق بعد اول تكرار 
وسوف اعرض لكم الصورة الثانية ومنها سوف تفهمون الصورة الاولي ... 


متال : 


Dim psw as integer 

Do 

Psw = 1nputbox (“plase 1nter the pass or Inter O to ex1t) 
If psw = 1001 then exit sub 

Loop until psw = 0 

End 


صناديق البيانات و أدوات الخيار :- 

اداة صناديق النصوص ... 0xټtexb Rich‏ 

واحيانا يطلقون عليها الصناديق الغنية لانها فعلا صناديق غنية فيهي تمكن من تغير العرض واللون 
ما هي ... Richtextbox‏ 


هي صناديق يمكنها عرض او كتابة بداخلها ويمكن التنسيق والتعديل فيها وتمكن من عرض ملفات 
من نوع 
Rtf‏ 


RichTEextBox‏ ج 


محلوظة :- ملفات ؟)R‏ هي ملفات يمكن عملها عن طريقة : 
Microsoft word or wordpad‏ - 


EE O E O E ONE 
.. النموذج‎ 


طريقة تحميل ملفات من نوع : R)f‏ 
لماذا أمتداد ۴ QR)‏ ؟ 
لانها اختصار İكأnة Rich text file‏ اي ان الأداة تعرضص هذا الامتداد فقط .. 


الصو ز ة العامة للتعليمة َ 
Richtextbox1.loadfile(path)‏ 
richtextb0>1‏ = الأداة الصندوق الغني 
م ]1 = وتعني التحميل 
path‏ = مسار الملف 


٠ مثال‎ 


Private Pub Forml Load{|EFVal sender A35 PystEeEm. Ub JECT 
RichTextEBox1.LoadFile It} i VbE xas pro.rtf] 
End Sub : 


ولكن لضمان بقاء تشغيل الملف مع البرنامج عند وضعة في جهاز اخر يجب وضع الملف في مجلد 
ادخل علية وسوف تجد مجلدين باسم 


Debug and release 
.. ضع الملف في هاذين المجلدينلضمان تشغيل الملف‎ 


طريقة منع التعديل ما بداخل الصناديق الغنية :- 


هناك طريفتين اولها هي من نافذة الخصائص وهي ان تذهب للخاصية 
Readonly >> true‏ 


Readûnly 
RightMargin 
RightToLeft 


او من خلال كتابة هذا الكود في الفورم لود : 
Richtextbox1.readonly = true‏ 


اداة قائمة الصور .. tئإامعٍ2ص!‏ 
هي اداة تفيدنا في تخزين مجموعة من الصور وتحتاج اداة لعرض الصور وهي اداة مخفية 
اداة عرض الصور مثل ٠‏ 


Picturebox 


NE 
اولا نضيف الاداة الي النموذج وسوف تظهر اسفل النمودج‎ 


aj ImageLisk 


لاضافة الصور اضخط هنا 


ImageList Tasks‏ ا4ا 


` aj ImageList1 
a ImagEë ize 1i; 16 
ا سے کس‎ 


Image Bit Dapj 


horse ÊÊ 


۳ ErroaF Lik | 


أضافة صور 2 


1ه سوف یظهر صندوق اضغط على << عی2[ عsممطC‏ اضغط علی 


ملاحظة : عند اضافة اول صورة سوف تاأخذ الترتيب ۰ 


سوف نري الان طريقة عرض الصور في اداة عرض الصور 
picturebox )‏ ( 


وهذة هي الصورة العامة للتعليمة لعرض الصورة داخل اداة عرض الصور .. 


Picturebox1.1mage = 1magelıst1.1ımage(0) 


هي خاصية تحديد الصورة المعروضة في الصندوق = ععج".!] 
هي خاصية احد عناصر قائمة الصور حسب الترتيب = (0)عع2"] 


اذرات الخيارآت -٠‏ 
اداة الصندوق المختلطة .. ×>oboاصomدC‏ 
سميت مختلطة لانها تجمع بين اداة . 


( textbox and listbox ) 
E womboBox 


IES) 
aa LomboBo# Tasks 
: EEE REET EEE EET FEET ERT FETE EET EET EET EE e ۳١ 5E dala bound ikerr= 


LInbound fodre 


E, 


او يمك اها من خلال هة ااتماةة: 
Combobox 1.1tems.add (“Item”)‏ 


هي لاضافة العنصر للقائمة = ل ل۸ 
الخ لرا اة ا ص 


٠ مثال‎ 


("اللغة العربية"( combobox1.1items.add‏ 


combobox1.items.add ("الرياضياتٽ'"(‎ 
combobox1.items.add ("sءlصح)ل1")‎ 


radio button .. دة‎ 


هي اداة تساعد في عرض عدة خيارات ولكن لا تسمح الا بختيار خيار واحد فقط مثل 
ذکر ام انٿي 
مدرس ام طالب 


ملاحظة : قبل اضافة اداة الخيار يجب وضعها في 
Groupbox)‏ ( 


= 
ا 


aFOUpEBOX 


اضف اداة اللصندرق الغني ی النموذج واضف اثنان من اداة الخيار وضعهم في صندوق تجميع .. 


ا× اتا 


aroupBoxl 


E " 


وأضغط على اداة الخيار الاولي واكتب هذة التعليمة : 
Rıichtextbox 1.forecolor = color.blue‏ 


Richtextbox1.forecolor = color.red 


اد|ة llتıilر Checkbox‏ 
هي اداة تساعدنا في عرض العديد من الخيارات وتسمح باختيار اكثر من خيار في نفس الوقت 
_heckBox‏ ا 


تطبيق :- 
اضف الي النموذج اداة الصندوق الغني واضف اداة التاشير 


EES > 


اخشاء الكلذم LI‏ 


واضغظ غل اداه التاشير واكتب هة التعاة: 
If checkbox1.checked = true then‏ 
Richtextbox1.h1de()‏ 
Else‏ 
Richtextbox1.show(0)‏ 


Font dialog نخ¡‎ öIدا‎ 


ویمکن اظهارها من خلال زر ضغط 
button )‏ ( 


| 1 Pointer 
Fi olor Dialog 

Fî FalderBramserDialag 
A=} FontDialog 
Ea OpenFileDialog 
E 2aweFileDialag 


Fontdialog1.showd1alog() 
Richtextbox1.font = fontdialog1.font 


ادöl Link label]‏ 
هة الاداة يمكن استخدامها في فتح العديد من الاشياء كصفحة نت او الاوت لوك او غيرة .. 
وانا سوف اوريكم مثال عليها في فتح الاوت لوك ويوجد كتابة بداخلة .. 


اضف الاداة الت النموذدج 
A LinkLabel‏ 


ع الي عمصهم وغير خاصية 
واضغط على الاداة ضغتطين واكتب هذا الكود : 


System.D1iagnostics.Process.Start("e-ma1l:d/7s @ hotmail.com ?Subject=name 
(Websıte)&Body=mustafa sye welcome, ") 


e.Link. VIs1ted = True 


ااا اعدا ت 
في الفيجوال بيسك ۸ يتيح لنا في التعامل مع جميع البرامج التي تنتج قواعد البيانات مثل .. 
Orcale „, SQL server , Access )‏ ( 


والتعديل .. 


الاتصال بقواعد البيانات ٠‏ 


تعریف )ع Da)a9‏ : هو مكان في الذاكرة لحفظ نسخة من قاعدة البيانات تحتوي علی کل من 
الجداول والحقول و العلاقات التي تم تحديدها في قاعدة البيانات 


اولا يجب انشاء قاعدة بيانات تحتوي على الجداول والاستعلامات ويتم ذلك باستخدام احد برامج 
انشاء قواعد البيانات وسوف استخدم برنامج الاكسس يمكنك القراءة عندة في الكتب والتعلم علية.. 


هذة هى صورة تو ضيحية للقاعدة التى انشاتها ¢ 


Fe 


E qu : Table 

_ | FieldName | DataType | Description 
fF Mo ûutoRurnber رقم تلقاثي بحدذ رقم الكلاه‎ 
Texk نص التلاد‎ 
ا‎ |chا‎ Text الأشتبار الأول‎ 

E Text الأختباز الثاني‎ 

الاختبار الثالث chT Text‏ | 
رقم الاجابة الصجة E Number‏ 


تم ادخال بيانات الي الجداول : 


2 


aE‏ اش ع 


! لتعزف ستغير على مستوي المسرو ع نستخدم‎ Jim TEE E 
لخزين اسم نستخدم منغير من نوع ؟‎ Double date tring 
٠ العبارة الى نسنخد في النترار‎ F of 1 select 
AutoNumber) 


فد ادخلت بعض البيانات على الجداول 


الان سوف نجري اتصال بين القاعدة التي تم انشاؤها وبين الفيجوال بيسك ۸ 
تابعوا طريقة الاتصال ,».» 


Data -> New data source 


Lata Tools Windom Help 


ET hoary Gata Sources Shift+AIlE+D 
ل‎ Adid Jew Data Source... fs 


Data Source Co nîfîpuration Wizard 


Choose a Data Source Type 


Yhere will the application qet data from? 


bject 


٧ ٧ :‏ —س عع ببب م م صح 


Lets You connect to ã database and choose the database objects Far Your application, This option creates ã 
dataset, 


Lanrcel 
ر‎ 


Choose Your Data Connection 


This connêctiûnfî string ãppêars tû conEêirî 


cofmêct to the database, HûieYêr, storing sensitive data if the cöfnêctiorîi string can bea securFiEy risk, Bo 
۴َ 


wo Want Ed include his SeRSIEiYE: datê ir Eê connection string? 


Na, e#clude'sensitiyës data fram. the connection strings TI will sêk his informatian in my application code, 


Yes, inElUdeE sêersitiyê daEa in he connection string. 


Add Connection 


Enter information to connect to the selected data source or 
click "Zhange" Eo choose a different data source andor 
provider, 


Calta source; 


Microsoft ûrress Database File (OLE DE} ا‎ e 
Database File name: 
Brose. f 
Log on to the database 
ser namê: Admin | 


Password: | 


[| Sa¥e mY password 


Advanced... 


|5 zanngeztian 8 Lancel 
ار‎ 


Choose Your Data Connection 


Which data connection should youır application use to connect to the database? 


¬ آ 
Mew Connections, |‏ __| ا db1.mdb‏ | 
This connêctiaîi string appears to: cûntair sêRsititê daa {FoF example, ã pass êrûî, whichis FequiFêd Eî‏ 


rosofi Visual Basic Z2ÛU0B Express Edition 


e e a a eg a e a e a a n ms E و ی ا س سے‎ 


3 The connection Yol selected uses ã local daka File that i5 nak in the current project, Would ¥ou like to copy the 
ر‎ war project and modify the connection? 


IF You copy the data File to Your project, it will be copied to the project's output directory each bime You run thi 
application, Press F1 For information on controlling this behavior, 


es 1 TT E oT‏ - ر 


| angel 


2 


بعد ذلك اضخط عل Next‏ 
وسوف تظهر لك جميع الجداول القاعدة والاستعلامات ان وجدت 


الحل 


ET Explorer 


Fort vb 


سوف اقوم الان بتصميم نموذج لعرض سؤال للتطبيق .. 


المسلسل ڪب و ي 2اءادا رقم السؤال 
نص السوال وط Labe|3‏ 


اختر الذحابة 


i RadioBuıtton 1 O RadioBuıtton# 


O RadioBuıtton3 


__ Buıttonl 


es Shift +Alt+D 
i Add New Data Source... 


db1 Date‏ | 4ھ 


الان نقوم بسحب Q‏ الادوات كما في الصورة 


ama e 
4ھ ا‎ 7] dbiData5et 


لا ا 
اقاءطاها رقم السؤال 


| e] dg radio1 
Labels 1 bl chaagfڑehuh‎ radilo2 


[abl cha ن‎ 
اختر الابحابة‎ “fal an © — radio3 


(J BadioBuıtton 1 J RadioBuıtton# 
O RadioBuıttonî 


| Buttonl | | Î Solution Explorer | jg 1D3ta Sour 


HH r aE agPqrEEsoporg : ا‎ ٣ 
Label 
hr e EEE 


anl 


mE 


rey 1 
1 


0 RadioButton Û RadioButton? 


14 
j Mone 
¬ TÎ Pufindi 
O RadinBut و ز0‎ u BindingSource 
„___Buttonl ١ Solution ا‎ SOUFCES | 
Label4 ١ 
| RadioButton System, Windowgtforms.RadioButt 
AE 
28# 
۳# Applicationsetkings) 
| {Databinding} آ1‎ Add Project Data SOUFCE,., 
(Advanced Selecting a Bindirngsource property binds ko the 
Checked carrespanding property of the list that this 
Tad Bindingsource binds to, 
1E nanê) 13 


کرر هذة الخطوة مع . 
rad102 , rad103 )‏ ( 


الان سوف نخفي الكائن 14ءطه] عن طريق هذة التعليمة البرمجية 
Label4.hide()‏ 
الان سوف نتطرق الي التعديل والاضافة على البيانات 
طرق لأساف والتحل عل اسنات 
أضف زر الي النموذج وقم بانشاء نموذج جديد 


وقم بعمل كما في الصورة 


ann 
ESE 


0 

HH Datagridview 
E Details 
ل3‎ 


4a إت‎ dh10 ste 


USEOMiZE,., 


ا لی الودج 


وسو ف يظهر لك كما فى الكل 


EE Form? 


والي هنا اختم الكتاب الثاني واتمني ان يكون الجميع مستفيد واعذروني على اي خطا 
ورد مني في الكتابة واهدي هذا الكتاب الي كل مسلم 


وارجو منكم الدعوة الصالحة واوعدكم بكل جديد ومفيد 


DeAd HaCkErZ 
From EË§Y CsDeRs TeArh 


Site : Sec-geeks.com 


SECIEITT = LIU - - MHMOFREE .. 


